rl1 <- function()
{
    source("rdist-exp.R");
    source("estimators.R");
}
